home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 23.zip / BS1 part 23 / Superbase 4 ser 12C00584^1.adf / mail / MDEFAULT < prev    next >
Text File  |  1991-03-14  |  4KB  |  206 lines
  1. prs% = 0' Integer
  2. prs%(0,0) = 0' Real
  3. prs%(1,0) = 0' Real
  4. prs%(2,0) = 0' Real
  5. prs%(3,0) = 0' Real
  6. prs%(4,0) = 0' Real
  7. prs%(5,0) = 0' Real
  8. prs%(0,1) = 0' Real
  9. prs%(1,1) = 3' Real
  10. prs%(2,1) = 3' Real
  11. prs%(3,1) = 0' Real
  12. prs%(4,1) = 2' Real
  13. prs%(5,1) = 2' Real
  14. prs%(0,2) = 0' Real
  15. prs%(1,2) = 3' Real
  16. prs%(2,2) = 3' Real
  17. prs%(3,2) = 5' Real
  18. prs%(4,2) = 3' Real
  19. prs%(5,2) = 0' Real
  20. prs%(0,3) = 0' Real
  21. prs%(1,3) = 0' Real
  22. prs%(2,3) = 0' Real
  23. prs%(3,3) = 0' Real
  24. prs%(4,3) = 0' Real
  25. prs%(5,3) = 0' Real
  26. prs%(0,4) = 0' Real
  27. prs%(1,4) = 0' Real
  28. prs%(2,4) = 0' Real
  29. prs%(3,4) = 5' Real
  30. prs%(4,4) = 3' Real
  31. prs%(5,4) = 2' Real
  32. prs%(0,5) = 0' Real
  33. prs%(1,5) = 3' Real
  34. prs%(2,5) = 3' Real
  35. prs%(3,5) = 5' Real
  36. prs%(4,5) = 0' Real
  37. prs%(5,5) = 2' Real
  38. a$ = ""
  39. a$(0) = "Don't Sort."
  40. a$(1) = "Sort by LastName."
  41. a$(2) = "Sort by Zip Code."
  42. a$(3) = "Sort by Zip COde and LastName."
  43. e$ = ""
  44. e$(0) = ""
  45. e$(1) = "LastName"
  46. e$(2) = "Zip"
  47. e$(3) = "pad$(Zip,10)+LastName"
  48. c$ = ""
  49. c$(0) = ""
  50. c$(1) = ""
  51. c$(2) = ""
  52. c$(3) = ""
  53. c% = 0' Integer
  54. c%(0) = 1' Real
  55. c%(1) = 2' Real
  56. c%(2) = 3' Real
  57. c%(3) = 4' Real
  58. activity$ = ""
  59. trap$ = ""
  60. bHelp$ = "Help"
  61. merl% = 3' Integer
  62. cnt% = 50' Integer
  63. bOK$ = "Begin Merge"
  64. bCancel$ = "Cancel"
  65. automan% = 2' Integer
  66. bModify$ = "Set Thresholds"
  67. prs1% = 0' Integer
  68. prs2% = 5' Integer
  69. prs3% = 0' Integer
  70. prs4% = 5' Integer
  71. prs5% = 5' Integer
  72. sel% = 9' Integer
  73. bQuit$ = "Quit"
  74. bogus$ = ""
  75. bAdd$ = "Add Entries"
  76. bMerge$ = "Merge Entries"
  77. bEdit$ = "Edit Entries"
  78. bLabel$ = "Print Labels"
  79. bUtil$ = "Utilities"
  80. bPurge$ = "Purge Entries"
  81. bOption$ = "Options"
  82. helpsel% = 0' Integer
  83. bKeep$ = "Keep"
  84. bCmd% = 0' Integer
  85. bDelete$ = "Delete"
  86. bRplace$ = "Replace"
  87. numdups% = 6' Integer
  88. recproc% = 36' Integer
  89. bRule$ = "M"
  90. optsel% = -999' Integer
  91. bexp$ = "A"
  92. tr$ = ""
  93. f1$ = "126"
  94. f2$ = ""
  95. r1$ = "13"
  96. r2$ = "10"
  97. bUse$ = "Use"
  98. bConv$ = "Standardize"
  99. utilsel% = 5' Integer
  100. bExport$ = "Export File"
  101. bBackup$ = "Backup File"
  102. bRestre$ = "Restore File"
  103. rcnum$ = "Searching..."
  104. rcleft$ = "36"
  105. onrul$ = "75 of 75."
  106. bAdd1$ = "Help with Add"
  107. bMerge1$ = "Merge Help"
  108. bEdit1$ = "Help with Edit"
  109. bLabel1$ = "Labels Help"
  110. bConvr1$ = "Utilities Help"
  111. bPurge1$ = "Purge Help"
  112. bOptio1$ = "Options Help"
  113. bQuit1$ = "Quit Help"
  114. bover1$ = "Synopsis"
  115. bHelp1$ = "Help"
  116. bCance2$ = "Cancel"
  117. bQuit2$ = "Cancel"
  118. bHelp2$ = "Help"
  119. a1% = 0' Integer
  120. a2% = 0' Integer
  121. a3% = 0' Integer
  122. a4% = 0' Integer
  123. a5% = 0' Integer
  124. a6% = 0' Integer
  125. a7% = 0' Integer
  126. a8% = 0' Integer
  127. a9% = 0' Integer
  128. a10% = 0' Integer
  129. title1$ = ""
  130. title2$ = ""
  131. headnum$ = ""
  132. tailnum$ = ""
  133. headper$ = ""
  134. tailper$ = ""
  135. totalnum$ = ""
  136. totalper$ = ""
  137. ent% = 0' Integer
  138. ret% = 0' Integer
  139. trap1$ = ""
  140. bConvrt$ = "&Utilities Help"
  141. bover$ = "&Synopsis"
  142. a1$ = "John"
  143. a2$ = "Mckey-pyfer"
  144. a3$ = ""
  145. a4$ = "45570 Moonlight E. Ct."
  146. a5$ = ""
  147. a6$ = "Victoria"
  148. a7$ = "BC"
  149. a8$ = "V9C3P9"
  150. a10$ = "V9cmck455"
  151. a9$ = "          "
  152. mdf$ = "Modifying the Address2 field"
  153. a11$ = ""
  154. ff% = 0' Integer
  155. pth$ = "Workbench:Superbase/Examples/mail"
  156. clm% = 0' Integer
  157. ccr% = 0' Integer
  158. cc% = 0' Integer
  159. zr% = 0' Integer
  160. n% = 1' Integer
  161. fln$ = "*.SBB"
  162. zz1$ = ""
  163. z1% = 0' Integer
  164. b$ = "Misc2"
  165. hl$ = "<Esc> - Quit back to Main | Any other key for more Help."
  166. hl% = 0' Integer
  167. flnm$ = "Address2"
  168. fo1$ = "126"
  169. fo2$ = ""
  170. ro1$ = "13"
  171. ro2$ = "10"
  172. prg% = 9' Integer
  173. st$ = "Importing"
  174. st1$ = "Import"
  175. R% = 30' Integer
  176. md% = 36' Integer
  177. z% = 1' Integer
  178. srtn% = 0' Integer
  179. ctx% = 37' Integer
  180. crit$ = "LEFT$(Zip.MailBase,3)+LEFT$(lastname.Mailbase,3)+left$(Address1.MailBase,3)+left$(company.MailBase,0)+left$(City.MailBase,0)"
  181. ink$ = ""
  182. fl% = 30' Integer
  183. rctotal% = 36' Integer
  184. rcleft% = 36' Integer
  185. rcnum% = 0' Integer
  186. totrul% = 75' Integer
  187. onrul% = 75' Integer
  188. k$ = ""
  189. nsp% = 0' Integer
  190. wh% = 3' Integer
  191. z$ = "P.O.B@"
  192. zz$ = "P.O.B "
  193. x% = 7' Integer
  194. ex$ = ""
  195. zz% = 1' Integer
  196. ff$ = ""
  197. af$ = ""
  198. Ct$ = "ON"
  199. pw% = 1' Integer
  200. ch$ = "ON"
  201. n$ = "^P.O.B@"
  202. a% = 0' Integer
  203. bCance1$ = "&Cancel"
  204. bCancel1$ = "&Cancel Purge"
  205. activity% = 0' Integer
  206.